home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 52 / Amiga Format AFCD52 (Issue 136, May 2000).iso / -serious- / programming / basic / mildred / mildred.lha / lha / SplitTests.lha / SpeedTest3.ascii < prev    next >
Text File  |  2000-02-23  |  5KB  |  170 lines
  1. WBStartup
  2.  
  3. #Objects=250
  4. MReserveShapes #Objects+1
  5.  
  6. .init
  7. InitBank 0,1280*512,$10000
  8. CludgeBitMap 0,1280,512,8,Bank(0)
  9. InitPalette 0,256
  10. LoadBitMap 0,"Pic.128",0
  11. MBitmap 0,1280,960
  12. MBitmapWindow 0,1,0,960-512,1280,512
  13. MPlanar16ToBitmap 1,Bank(0),1280,512,1280,512
  14. MBitmap 2,1280,960
  15. MBlockScroll 0,0,1280,960,0,0,0 ; Make backup
  16. InitBank 0,320*240,$10002
  17. CludgeBitMap 0,320,240,8,Bank(0)
  18. InitBank 1,320*240,$10002
  19. CludgeBitMap 1,320,240,8,Bank(1)
  20. Screen 0,0,0,320,240,8,0,"Game",0,0,0
  21. ShowPalette 0
  22.  
  23. .offsets
  24. MBitmap 1,320,240
  25. NEWTYPE.OffsetList
  26.   LineWidth.w
  27.   X1Offset.w
  28.   X2Offset.w
  29.   SourceModuloOffset.w
  30. End NEWTYPE
  31. Dim leftrows1.OffsetList(40)
  32. Dim leftrows2.OffsetList(40)
  33. Dim rightrows1.OffsetList(40)
  34. Dim rightrows2.OffsetList(40)
  35. leftrows1(0)\LineWidth=64-24,0,0,0
  36. leftrows2(0)\LineWidth=64,0,0,0
  37. rightrows1(0)\LineWidth=1,0,0,0
  38. rightrows2(0)\LineWidth=24,0,0,0
  39. For y=1 To 39
  40.   leftrows1(y)\LineWidth=64-24-y
  41.   leftrows1(y)\X1Offset=0
  42.   leftrows1(y)\X2Offset=0
  43.   leftrows1(y)\SourceModuloOffset=0
  44.   leftrows2(y)\LineWidth=64-y
  45.   leftrows2(y)\X1Offset=0
  46.   leftrows2(y)\X2Offset=0
  47.   leftrows2(y)\SourceModuloOffset=0
  48.   rightrows1(y)\LineWidth=y+1
  49.   rightrows1(y)\X1Offset=-1
  50.   rightrows1(y)\X2Offset=-1
  51.   rightrows1(y)\SourceModuloOffset=0
  52.   rightrows2(y)\LineWidth=24+y
  53.   rightrows2(y)\X1Offset=-1
  54.   rightrows2(y)\X2Offset=-1
  55.   rightrows2(y)\SourceModuloOffset=0
  56. Next
  57.  
  58. .setup
  59. Mc2pWindow 0,224,80,1280,320,240
  60. Mc2pWindow 1,96,80,1280,320,240
  61. Mc2pWindow 2,96,80,320,320,240
  62. Mc2pWindow 3,128,80,320,320,240
  63. Mc2pWindow 4,64,40,1280,320,240
  64. Mc2pWindow 5,64,40,320,320,240
  65. mousemult.q=1070/320
  66. its.l=0
  67. buf.b=0
  68. Mc2p 1,MBitmapPtr(0,700,0),MGenericPtr(224 LSR 3,0,Bank(0),40)
  69. Mc2p 1,MBitmapPtr(0,700,0),MGenericPtr(224 LSR 3,0,Bank(1),40)
  70. MZoom 0,0,12,12,0,160,96,80,False,0
  71. Mc2p 2,MBitmapPtr(0,160,1),MGenericPtr(0,160,Bank(0),40)
  72. Mc2p 2,MBitmapPtr(0,160,1),MGenericPtr(0,160,Bank(1),40)
  73. Use BitMap 0 : Line 319-8,0,320-96+8,79,0
  74. Use BitMap 1 : Line 319-8,0,320-96+8,79,0
  75.  
  76. ;Set up movement table
  77. .table
  78. MQueue 0,#Objects
  79. NEWTYPE.xy
  80.   x.w
  81.   y.w
  82. End NEWTYPE
  83. MParticleMode 0
  84. Dim xy.xy(#Objects)
  85. Dim direction.xy(#Objects)
  86. MAutoCookie On
  87. MUseBitmap 0
  88. For obj=1 To #Objects
  89.   MGetaShape obj,Rnd(1280-64),760+Rnd(200-64),32,32
  90.   xy(obj)\x=Rnd(1280-96)+16
  91.   xy(obj)\y=Rnd(960-96)+16
  92.   Repeat
  93.     direction(obj)\x=Rnd(12)-6
  94.   Until direction(obj)\x<>0
  95.   Repeat
  96.     direction(obj)\y=Rnd(12)-6
  97.   Until direction(obj)\y<>0
  98. Next obj
  99. MHandle 0,32,32
  100.  
  101. Mc2pWindow 3,320,160,1280,320,240
  102. Mc2pWindow 4,224,80,1280,320,240
  103.  
  104. mag.q=12
  105. ShowBitMap 1-buf
  106. VWait
  107. ResetTimer
  108. .loop
  109. Repeat
  110.   player1x=SMouseX*mousemult
  111.   player1y=SMouseY*mousemult
  112.   player2x=(1280-238)-player1x
  113.   player2y=(960-160)-player1y
  114. ;player2x=player1x
  115. ;player2y=player1y
  116.   MUseBitmap 0
  117.  
  118.   MAddToParticles &xy(1)\x,#Objects,&direction(1)\x
  119.   MReboundParticles &xy(1)\x,#Objects,&direction(1)\x,48
  120.   For obj=1 To #Objects
  121.     If xy(obj)\x>player1x-32 AND xy(obj)\x<player1x+320+32 AND xy(obj)\y>player1y-32 AND xy(obj)\y<player1y+240+32
  122.       MQBlit obj,xy(obj)\x,xy(obj)\y
  123.     EndIf
  124.   Next obj
  125.  
  126.   MUseBitmap 1
  127. ;  Mc2p 0,MBitmapPtr(player1x,player1y,0),Bank(buf)
  128. ;  Mc2p 1,MBitmapPtr(player1x,player1y+80,0),MGenericPtr(0,80,Bank(buf),40)
  129. ;  Mc2p 0,MBitmapPtr(player2x,player2y+80,0),MGenericPtr(96 LSR 3,160,Bank(buf),40)
  130. ;  Mc2p 1,MBitmapPtr(player2x+128,player2y,0),MGenericPtr(224 LSR 3,80,Bank(buf),40)
  131. ;  MScroll player1x+96+64,player1y+80,64,40,96+64,80,0,&leftrows1(0)
  132. ;  MScroll player1x+96,player1y+80+40,64,40,96,80+40,0,&leftrows2(0)
  133. ;  MScroll player2x+128-24,player2y,64,40,224-24,80,0,&rightrows2(0)
  134. ;  MScroll player2x+64,player2y+40,64,40,96+64,80+40,0,&rightrows1(0)
  135. ;  Mc2p 5,MBitmapPtr(96,80+40,1),MGenericPtr(96 LSR 3,80+40,Bank(buf),40)
  136. ;  Mc2p 5,MBitmapPtr(96+64,80,1),MGenericPtr((96+64) LSR 3,80,Bank(buf),40)
  137. ;  Mc2p 4,MBitmapPtr(player1x+96,player1y+80,0),MGenericPtr(96 LSR 3,80,Bank(buf),40)
  138. ;  Mc2p 4,MBitmapPtr(player2x+64,player2y+40,0),MGenericPtr(160 LSR 3,80+40,Bank(buf),40)
  139. Mc2p 3,MBitmapPtr(player1x,player1y,0),Bank(buf)
  140. Mc2p 4,MBitmapPtr(player1x+96,player1y+160,0),MGenericPtr(96 LSR 3,160,Bank(buf),40)
  141. MZoom player1x,player1y,mag,mag,0,160,96,80,False,0
  142. Mc2p 2,MBitmapPtr(0,160,1),MGenericPtr(0,160,Bank(buf),40)
  143.   its+1
  144.   ShowBitMap buf
  145. ;  VWait
  146.   buf=1-buf
  147.   If Joyb(0)=1 Then mag-0.1
  148.   If Joyb(0)=2 Then mag+0.1
  149.   MUnQueue 0,2
  150. Until Joyb(0)=3
  151.  
  152. ;Report
  153. .report
  154. t=Timer
  155. t=Max(t,1)
  156. its=Max(its,1)
  157. a.q=50.0/(t/its)
  158. WBenchToFront_
  159. WbToScreen 1
  160. Window 2,16,16,300,40,0,"Test results",1,0
  161. WindowOutput 2
  162. NPrint a," frames per second"
  163. NPrint " "
  164. NPrint "Press mouse/joy button..."
  165. VWait 20
  166. Repeat
  167. Until Joyb(0)<>0 OR Joyb(1)<>0
  168. End
  169.  
  170.